home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Gry / Tales of Tamar Demo.lha / talesdemo1 / rexx / Quit_TCP_IP.rexx < prev    next >
OS/2 REXX Batch file  |  1999-09-10  |  1KB  |  31 lines
  1. /******************************************************************************************************/
  2. /* Online-Script mit Arexx                                                                            */
  3. /*     © by Martin Wolf / Eternity Hard & Software                                                  */
  4. /*      First Bit set: 03.05.1998                                                                     */
  5. /*      Last Bit set :                                                                                */
  6. /*                                                                                                */
  7. /*                                                                                                    */
  8. /*      Version 1.01 : Env-Var wird jetzt abgefragt                                          */
  9. /*                                                                                                    */
  10. /******************************************************************************************************/
  11.  
  12.  
  13. OPTIONS RESULTS
  14.  
  15. ADDRESS COMMAND
  16.     IF (OPEN('EnvVar','ToTDemo1:Data/MiamiDeja','R')) THEN
  17.       DO
  18.       IF ~(READCH('EnvVar',1)) THEN
  19.         DO UNTIL SHOW('P','MIAMI.1')            /* Auf Miami warten */
  20.         SIGNAL OFF ERROR
  21.         'WaitForPort MIAMI.1'
  22.         SIGNAL ON ERROR
  23.         miamiport = MIAMI.1                /* ist auf jeden Fall der aktive Port */
  24.  
  25. ADDRESS (miamiport)
  26.         QUIT
  27.           END
  28.       CLOSE('EnvVar')
  29.       END
  30.     EXIT
  31.